home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_38_(10-1984).d64 / turtle graphics (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  741b  |  20 lines
  1. 10 REM TURTLE BOOT
  2. 20 POKE 53281, 6
  3. 30 PRINT CHR$(147); CHR$(154) TAB(10) "TURTLE GRAPHICS BOOT": PRINT: PRINT
  4. 40 PRINT "THIS PROGRAM WILL LOAD AND RUN THE"
  5. 50 PRINT "TURTLE DATA AND INTERPRETER PROGRAMS.": PRINT
  6. 60 PRINT "WHILE THEY ARE LOADING THE SCREEN WILL"
  7. 70 PRINT "BLANK.": PRINT
  8. 80 PRINT "DO NOT REMOVE THE DISK UNTIL THE"
  9. 90 PRINT "INTERPRETER PROMPTS YOU FOR YOUR FIRST"
  10. 100 PRINT "COMMAND.": PRINT: PRINT: POKE 198, 0
  11. 110 PRINT "PRESS " CHR$(18) "SPACE" CHR$(146) " WHEN READY"
  12. 120 GETA$: IF A$="" THEN 120
  13. 130 Q$=CHR$(34): D$=CHR$(17)
  14. 140 PRINT CHR$(147); CHR$(31); D$; D$; D$ "POKE 16384, 0: POKE 44, 64: NEW"
  15. 150 PRINT D$; D$ "LOAD" Q$ "TURTLE GRAPHIC 2" Q$ ",8"
  16. 160 PRINT D$; D$; D$; D$; D$ "RUN"
  17. 170 PRINT D$; D$ "LOAD" Q$ "TURTLE GRAPHIC 1" Q$ ",8"
  18. 180 PRINT D$; D$; D$; D$; D$ "RUN" CHR$(19)
  19. 190 FOR K= 1 TO 7: POKE 630+K, 13: NEXT: POKE 198, 7
  20.